home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
fmodla13.zip
/
DTA.DEF
< prev
next >
Wrap
Text File
|
1992-01-29
|
343b
|
21 lines
DEFINITION MODULE DTA;
(* (C) Copyright 1987 Fitted Software Tools. All rights reserved. *)
(* Get / Set DOS Disk Transfer Address *)
FROM SYSTEM IMPORT ADDRESS;
PROCEDURE GetDTA( VAR adrs :ADDRESS );
(*
returns the current DTA at adrs.
*)
PROCEDURE SetDTA( adrs :ADDRESS );
(*
sets DTA to adrs
*)
END DTA.